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PEEP - A DIRECTORY SEARCH PROGRAM 


DECUS Program Library Write-up 


DECUS No. 8-252 


ABSTRACT 

This program was written to augment the PIP LIST option since the latter does not give any 
information about the location of files on the disk or DECtape. Five options are available: 

1. C - COUNT the number of free files and blocks. 

2. L- LIST the files. 

3. S - SEARCH for a named file. 

4. D - DUMP the contents of a SAM block onto the T/T. 

5. H - HALT in a DN specification. 

The program reads into core all the DN and SAM blocks from the system device, disks or DECtape 
and asks for the required option, which is selected by typing one of the above letters. The options 
have the following functions: 

C OPTION examines the DN blocks in core for missing (zero) file names, and examines the 
SAM blocks for unallocated blocks on the system device. Two numbers are typed out: (free 
files) F: (free blocks) B. 

L OPTION gives a list of all the files on the system device in the following format (see also 
Figure 1): 

FN: C, NAME, XXXXX, YYYYY; BLOCK 1 - BLOCK N, N 
where, FN = 2 digit file number 

C = type of file A-ASCII, B-BINARY, F-FORTRAN BINARY, S-SYSTEM, 
U-USER 

NAME = the file name 

XXXXX = 5 digit field and lowest core address 
YYYYY = 5 digit field and starting address (entry point) 

BLOCK 1, N = the block numbers on the system device, if these are not contiguous this 
format is repeated as often as necessary 
N = the number of blocks used by the file 

If a file number is not used, only the number is typed. The list ends with the numbers from 
the C option. 

The list can be stopped at any time by typing a character (e.g. space-bar). The program 
returns to option selection. 

S OPTION gives the statistics of a named file in a similar format to the list option (see 
Figure 2). If two or more files have the same name each can be examined by repeatedly calling 
for the file by name. If the file is called too often PEEP types a query (?) only. The lowest 








unused file number can be obtained by asking for a no-name file, i.e. by hitting the return key 
only. Repeated use gives the numbers of all the unused files. Since the DN specification of 
such a file is 5 zero words the file type is given as ASCII with core address 0 , S.A. = 0 and no 
0 blocks (see example in Figure 2). 

D OPTION gives a print-out on the T/T of the contents of a SAM block specified by number (see 
Figure 3). There is one SAM block for each disk and 6 SAM blocks on a DECtape. Illegal block 
numbers are rejected by PEEP. The type-out is in 8 columns, 16 rows, but it can be stopped at 
any time by typing a character (e.g. space-bar). 


H OPTION is used to change the starting address (entry point) of a file to the halt location of 
Monitor so that it can be called into core later and modified before running it or resaving it on 
the system device or another device. Thus a file can be called into core from one DECtape 
and written into another or a (possibly) modified copy made on the first DECtape. To 
use the H option the number of the file is typed and PEEP replies with the file name and the 
present starting address. The user then types 7636 and PEEP echoes file number, name and 7636. 
The user can accept that the DN block should be so modified by typing a return or he can change 
his mind and leave the starting address unmodified by typing any other character, such as space¬ 
bar or rub<-out Typing errors cause cancellation of the option without modification of the 
starting address, which in any case can only be changed to 7636. Only User and System files are 
allowed to be 'halted.' 


CORE USAGE 


The program occupies locations 20 to 1777. It uses 2000 to 2577 to store the three DN blocks 
and one page above 2577 for each SAM block (for DECtape 2600 to 4177). The next page is 
used to store, temporarily, the block numbers of the file currently being examined before the 
type^-outroutine is entered. The basic I/O routine is used for communicating with the system device 
through Monitor; an effective JMS 7642 is used. The program can HALT for two reasons; 1) an 
error return to the 1/O routine from Monitor due to a READ error gives a HALT at location 332; 

2) after completion of an H option and modification of a DN block the program jumps to the 
halt location 7636 in Monitor. 


NOTES 


1. Monitor is file number 0 ] , file name EX (space) C. 

2. All numbers typed out have leading zeros suppressed, but zero = 0 . 

3. Files containing noncontiguous pages of core have a start address 7777 in the DN entry in 
place of the lowest core address. PEEP does not allow the examination of the first block of the 
file to find the page assignments of the file. 


4. CTRl/L returns S option to OPT. 

5. CTRl/Creturns computer to Monitor. 
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.PEEP FIGURE 1 

OPT L 


1 :S, EX C, 

7000, 

2:S, BNLD, 

17600, 

3:S, HALT, 

7400, 

4:S, LOAD, 

7000, 

5:S, .CD., 

0/ 

6:S, PIP, 

7777, 

7:S, EDIT, 

A 

10:S, PALD 

0/ 

11 :S, PALP, 

0, 

12:S, LOOK, 

200, 

13:S, PALX, 

6600; 

14:S, TMC1, 

17200, 

15:S, TMC0, 

7200, 

16:S, BPN|0, 

7400, 

17:S, BPN1, 

17400, 

20:S, BTG, 

6000, 

21 :U, NX30, 

0, 

22:S, PEEP, 

0, 

23: U, NX31, 

17777, 

24:A, NX3S, 

0, 

25:S, F611, 

0, 

26:S, .SYM, 

0, 

27:U, NX3D, 

1 400, 

3CbU, DTM2, 

1 400, 

31 :S, ST8K, 

4600, 

32:A, JMD 

0, 

33:S, FCL8, 

0, 

34:S, NUL8, 

1 0, 

35:S, MEDL, 

7400, 

36:A, TEST, 

0, 

37:B, TEST, 

0, 

40:S, TEST, 

0, 

41:U, TEST, 

0, 

42 


43 


44 


45 


46 


47 



7 m 

0- 

11, 


774- 

777, 

17700; 

23- 

23, 

7565; 

24- 

24, 

7000; 

12- 

14, 

0; 

15- 

22, 

1000; 

26- 

57, 

2600; 

25- 

25, 

6200; 

74- 

132, 

6200; 

133- 

171, 

200; 

172- 

174, 

6600; 

175- 

176, 

17375; 

205- 

206, 

7375; 

207- 

210, 

7465; 

211- 

211, 

17465; 

212- 

212, 

6000; 

213- 

213, 

7636; 

214- 

37 

232, 

200; 

233- 

242, 

1 0; 

243- 

244, 

0; 

245- 

257, 

200; 

260- 

265, 

0; 

304- 

310, 

1 0; 

311- 

315, 

1 0; 

267- 

273, 

200; 

360- 

372, 

0; 

417- 

453, 

0; 

377- 

400, 

1 113; 

416- 


176; . 

454- 

454, 

0; 

520- 

520, 

0; 

521- 

521, 

0; 

522- 

522, 

0; 

523- 

523, 


177- 202, 373- 

26 
1 
1 
3 
6 

32 

60- 73, 15 

37 
37 
3 

203- 204, 4 

2 
2 
1 
1 
1 


266- 

266, 

274- 

10 

347- 

350, 

4 

13 

325- 

346, 

351- 

5 

5 

5 

376- 

376, 

14 

455- 

517, 

100 

402- 

415, 

16 


375, 401- 401, 




303, 316- 324, 


357, 37 
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FIGURE 1 (Continued) 


50 
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52 

53 

54 

55 

56 

57 
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63 

64 

65 

66 
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/ 
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/ 



70 

71 

72 

73 

74 

75 

76 

77 
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OPT 
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FIGURE 2 


PEEP 

OPT S 

EX C 

1 :S, 

7000 , 

7000 ; 

0- 

11/ 

177- 

PIP 

6:S, 

7777, 

1000; 

26 

26- 

57, 

32 

TEST 

36:A, 

0/ 

0; 

520 - 

520 , 

1 

TEST 

37:B, 

0/ 

0; 

521- 

521, 

1 

TEST 

40:S, 

0, 

0; 

522- 

522, 

1 

TEST 

41 :U, 

0, 

0; 

523- 

523, 

1 

TEST 

? 

JMD 

32:A, 

0/ 

0; 

417- 

453, 

455- 

42:A, 

0, 

0 





202 , 


517, 


373- 375, 


100 


401- 401, 


774- 777, 
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FIGURE 3 
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33 
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1301 
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.PALD 

*OUT-R: 

* 

*IN-S:JMD 

* 

*OPT- 

ABFSU 

1676 

ABUFF 

0044 

AC LASS 

1734 

ADNBF 

0043 

ASAMBF 

0046 

ASK 

0302 

B 

1736 

BLKS 

J0537 

BLOK 

0325 

BUFF 

0045 

CHAR 

0100 

CHARS 

0142 

CHK 

1315 

CLASS 

1735 

COL 

0075 

COMMA 

0131 

CORE 

0326 

COUNT 

1000 

CR 

0124 

CRLF 

0351 

CTRL 

0334 

Cl 

0040 

C2 

0041 

C260 

0137 

C3 

0042 

C7 

0135 

DASH 

0130 

DATA 

0400 

DCNT 

0134 

DNBF 

2000 

DNDATA 

1121 

DNS 

0205 

DUMP 

1400 

D1 

1427 

D2 

1452 

F 

1737 

FIND 

1605 

FINDIT 

1600 

FIRST 

0127 

FLD 

0116 

FNO 

0066 

FNOK 

0065 

FUNC 

0324 
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GET 

1342 

GOTCR 

1367 

GOT IT 

16?0 

HALT 

1456 

KTR 

0072 

LAST 

0112 

LCT 

0141 

LF 

0125 

LFNO 

0113 

LINK 

0327 

LIST 

0600 

LNCT 

0123 

LOOP 

0725 

LST 

1265 

LWORD1 

0110 

LWORD2 

0111 

MASK 

0103 

MC 

0050 

MCR 

0062 

MCTRL 

0061 

MCTRLC 

0064 

MDMS 

0053 

MFNO 

0067 

MHMD 

0054 

MLMC 

0051 

MODDN 

1673 

MONHLT 

1675 

MONRET 

0114 

MORE 

0656 

MRO 

0063 

MSAM 

0106 

MSML 

0052 

M1J00 

0126 

M2 

0036 

M20 

0117 

M 200 

0037 

M23 

0120 

M24 

0140 

M26 

0121 

M27 

0122 

M3 

0032 

M30 

0033 

M31 

0034 

M4 

0035 

M8 

0031 

NDN 

0104 

NEXT 

0444 

NEXTT 

0607 

NLINE 

0524 

NOHALT 

1670 





NOTYET 

1302 

NSAM 

0105 

NXT 

1012 

NXT2 

1053 

NZ 

0514 

0 

0055 

OPT 

0047 

OPTN 

0250 

OUT 

0426 

OUTT 

0463 

P 

0056 

PASSC 

0071 

PASSK 

0757 

PASS! 

0713 

PASS 2 

0720 

PNU2 

0473 

PR NT 

1101 

PTEM 

0132 

PI 77 

0021 

P20 

0136 

P200 

0024 

P201 

0145 

P202 

0146 

PZ07 

0147 

P3 

0020 

P4 

0030 

P40 

0023 

P5 

0027 

P 7 

0022 

P7636 

0143 

P77 

0025 

P 7700 

0026 

QMARK 

0077 

RBLK 

0322 

READ 

0200 

SAMFND 

0760 

SAMN 

0107 

SAMS 

0217 

SAVEF 

0144 

SCOL 

0076 

SEARCH 

1200 

SERCH 

1244 

SETLF 

1324 

SP 

0060 

SRCH 

0675 

SSS 

0115 

SYSIO 

0074 





T 

0057 

TEMP 

0073 

TEST 

1266 

THISDN 

0664 

THSDN 

13 07 

TSTW 

0070 

TYPE 

0342 

WBLK 

1742 

WBLOK 

1745 

WCORE 

1746 

WHAT 

0273 

WHICH 

1236 

WUNK 

1747 

WORD! 

0101 

WORD2 

0102 

WSET 

1510 

WSET1 

1542 

WSET 2 

1527 

ZZ 

J0133 









/PEEP MK 

3 



/ 




*20 




/ 


0020 

0003 

P3, 

3 

0021 

0177 

PI 77, 

177 

0022 

0007 

P 7, 

7 

0023 

0040 

P40, 

40 

0024 

0200 

P200, 

200 

0025 

0077 

P77, 

77 

0026 

7700 

P7700, 

7700 

0027 

0005 

P5, 

5 

0030 

0004 

P4, 

4 

0031 

7770 

MS, 

-10 

0032 

7775 

M3, 

-3 

0033 

7750 

M30, 

-30 

0034 

7747 

M31, 

-31 

0035 

7774 

M4, 

-4 

0036 

7776 

M2, 

-2 

0037 

7600 

M200, 

-200 

0040 

0000 

Cl, 

0 

0041 

0000 

C2, 

0 

0042 

0000 

C3, 

0 

0043 

2000 

ADNBF, 

DNBF 

0044 

0000 

ABUFF, 

0 

0045 

0000 

BUFF, 

0 

0046 

0000 

ASAMBF, 

0 

0047 

0000 

OPT, 

0 

0050 

7735 

MC, 

-43 

0051 

7767 

MLMC, 

43-54 

0052 

7771 

MSML, 

54-63 

0053 

0017 

MDMS, 

63-44 

0054 

7774 

MHMD, 

44-50 

0055 

,0317 

0 , 

317 

0056 

0320 

P, 

320 

0057 

0324 

T, 

324 



/ 


0060 

0240 

SP, 

240 

0061 

7564 

MCTRL, 

-214 

0062 

7777 

MCR, 

214-215 

0063 

7616 

MRO, 

215-377 

0064 

0174 

MCTRLC, 

377-203 

0065 

0000 

FNOK, 

0 

0066 

0000 

FNO, 

0 

0067 

0000 

MFNO, 

0 

0070 

0000 

TSTW, 

0 

0071 

0000 

PASSC, 

0 

0072 

0000 

KTR, 

0 

0073 

0000 

TEMP, 

0 

0074 

7642 

SYSIO 

7642 

0075 

0272 

COL, 

272 


/DNBF + 1200 FOR 2 DISCS; +2200 FOR DECTAPE 

/DNBF + 600 FOR 2 DISCS OR DECTAPE 

/-C+240 

/C-L 

/L-S 

/S-D 


/SAM SEARCH COUNTER 
/BLOCK POINTER 
/MONITOR I/O ROUTINE ADDR. 
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0076 

0273 

SCOL, 

273 

0077 

0277 

QMARK, 

277 

0100 

0000 

CHAR, 

0 

0101 

0000 

WORDl, 

0 

0102 

0000 

WORD2, 

0 

0103 

0000 

MASK, 

0 

0104 

0000 

NDN, 

0 

0105 

0000 

NSAM, 

0 

0106 

0000 

MSAM, 

0 

0107 

0000 

SAMN, 

0 

0110 

7777 

LWORD1, 

, 7777 

0111 

7777 

LWORD2, 

, 7777 

0112 

0000 

LAST, 

0 

0113 

0000 

LFNO, 

0 

0114 

7600 

MONRET 

, 7600 

0115 

0000 

SSS, 

/ 

0 

0116 

0000 

FLD, 

0 

0117 

7760 

M20, 

-20 

0120 

7755 

M23, 

-23 

0121 

7752 

M26, 

-26 

0122 

7751 

M2 7, 

-27 

0123 

0000 

LNCT, 

0 

0124 

0215 

CR, 

215 

0125 

0212 

LF, 

212 

0126 

7700 

M100, 

-100 

0127 

0000 

FIRST, 

0 

0130 

0255 

DASH, 

255 

0131 

0254 

COMMA 

,, 254 

0132 

0000 

PTEM, 

0 

0133 

0000 

zz. 

0 

0134 

0000 

DCNT, 

0 

0135 

0007 

C7, 

7 

0136 

0020 

P20, 

20 

0137 

0260 

C260, 

260 

0140 

7754 

M24, 

-24 

0141 

0000 

LCT, 

0 

0142 

0000 

CHARS, 

0 

0143 

7636 

P7636, 

7636 

0144 

0000 

SAVEF, 

0 

0145 

0201 

P201, 

201 

0146 

0202 

P202, 

202 

0147 

0207 

P 207, 

207 


/ 

/ FETCH DN & SAM BLOCKS FROM DISCS OR DECTAPE 

/ 

*200 

/ 

0200 1043 READ, TAD ADNBF 

0201 3326 DCA CORE 

0202 31,04 DCA NDN /NO. OF DN BLKS. 
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020 3 

3105 


DCA NSAM 

/NO. OF SAM BLKS. 

0204 

1021 


TAD PI 77 


0205 

3325 

DNS, 

DCA BLOK 


0206 

4322 


JMS RBLK 


0207 

1024 


TAD P200 


0210 

1326 


TAD CORE 


0211 

3326 


DCA CORE 


0212 

2104 


ISZ NDN 


0213 

1327 


TAD LINK 


0214 

7440 


SZA 


0215 

5205 


JMP DNS 


0216 

1024 


TAD P200 


0217 

3325 

SAMS, 

DCA BLOK 


0220 

4322 


JMS RBLK 

/READ IN SAM BLOKS. 

0221 

1024 


TAD P200 


0222 

1326 


TAD CORE 


0223 

3326 


DCA CORE 


0224 

2105 


ISZ NSAM 


0225 

1327 


TAD LINK 


0226 

7440 


SZA 


0227 

5217 


JMP SAMS 


0230 

1104 


TAD NDN 

/INIT. BUFFER ADDRS. 

0231 

7112 


CLL RTR 


0232 

7012 


RTR 


0233 

7012 


RTR 


0234 

1043 


TAD ADNBF 


0235 

3046 


DCA ASAMBF 


0236 

1105 


TAD NSAM 


0237 

7112 


CLL RTR 


0240 

7012 


RTR 


0241 

7012 


RTR 


0242 

1046 


TAD ASAMBF 


0243 

3044 


DCA ABUFF 


0244 

6032 


KCC 


0245 

6046 


TLS 


0246 

4351 


JMS.CRLF 


0247 

3047 

/ 

DCA OPT 




/SELECT OPTION 


0250 

7200 

/ 

OPTN, 

CLA 


0251 

3115 


DCA SSS 


0252 

4351 


JMS CRLF 


0253 

4302 


JMS ASK 


0254 

1050 


TAD MC 


0255 

7450 


SNA 

/IS IT COUNT OPTION ? 

0256 

5777 


JMP COUNT 


0257 

1051 


TAD MLMC 


0260 

7450 


SNA 

/IS IT LIST OPTION ? 
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$261 

5776 


JMP LIST 

0262 

1 $52 


TAD MSML 

$263 

745$ 


SNA 

$264 

5775 


JMP SEARCH 

$265 

1 $53 


TAD MDMS 

$266 

745$ 


SNA 

$267 

5774 


JMP DUMP 

$27$ 

1 $54 


TAD MHMD 

$271 

745$ 


SNA 

$272 

5773 


JMP HALT 

$273 

720$ 

WHAT, 

CLA 

$274 

4351 


JMS CRLF 

$275 

1$6$ 


TAD SP 

$276 

4342 


JMS TYPE 

$277 

1 $77 


TAD QMARK 

$3$$ 

4342 


JMS TYPE 

$3$1 

525$ 

/ 

JMP OPTN 

$3$2 

$$$$ 

ASK, 

$ 

$3$3 

72$$ 


CLA 

$3$4 

1 $55 


TAD O 

$3$5 

4342 


JMS TYPE 

$3$6 

1 $56 


TAD P 

$3$7 

4342 


JMS TYPE 

$31$ 

1 $57 


TAD T 

$311 

4342 


JMS TYPE 

$312 

1$6$ 


TAD SP 

$313 

4342 


JMS TYPE 

$314 

4772 


JMS GET 

$315 

5314 


JMP .-1 

$316 

525$ 


JMP OPTN 

$317 

3$47 


DCA OPT 

$3$ 

1 $47 


TAD OPT 

$321 

57$2 

/ 

JMP 1 ASK 

$322 

$$$$ 

RBLK, 

$ 

$323 

4474 


JMS 1 SYSIO 

$324 

$$$3 

FUNC, 

3 

$325 

$$$$ 

BLOK, 

$ 

$326 

$$$$ 

CORE, 

$ 

$327 

$$$$ 

LINK, 

$ 

$33$ 

741$ 


SKP 

$331 

5722 


JMP 1 RBLK 

$332 

74$2 


HLT 

$333 

520$ 

/ 

JMP READ 

$334 

$055 

CTRL, 

O 

$335 

1 $61 


TAD MCTRL 


/IS IT SEARCH OPTION ? 


/IS IT DUMP OPTION ? 


/IS IT HALT OPTION ? 
/ILLEGAL OPTION 


/R.O. 


/-tL 
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/336 

7440 


SZA 

/337 

5734 


JMP 1 CTRL 

0340 

3047 


DCA OPT 

0341 

5250 

/ 

JMP OPTN 

0342 

0000 

TYPE, 

/ 

0343 

6041 


TSF 

0344 

5343 


JMP .-1 

0345 

6046 


TLS 

0346 

7200 


CLA 

0347 

2123 


ISZ LNCT 

0350 

5742 

/ 

JMP 1 TYPE 

0351 

0000 

CRLF, 

/ 

0352 

3123 


DCA LNCT 

0353 

1124 


TAD CR 

0354 

4342 


JMS TYPE 

0355 

1125 


TAD LF 

0356 

4342 


JMS TYPE 

0357 

5751 

/ 

JMP 1 CRLF 

0372 

1342 



0373 

1456 



0374 

1400 



0375 

1200 



0376 

0600 



0377 

1000 

PAGE 




/ 


0400 

0000 

DATA, 

/ 

0401 

1075 


TAD COL 

0402 

4777 


JMS PE 

0403 

1441 


TAD 1 C2 

0404 

4776 


JMS ABFSU 

0405 

1,041 


TAD C2 

0406 

1/35 


TAD M4 

0407 

3/41 


DCA C2 

0410 

1441 


TAD 1 C2 

0411 

4775 


JMS PR NT 

0412 

2/41 


ISZ C2 

0413 

1441 


TAD 1 C2 

0414 

4775 


JMS PR NT 

0415 

2041 


ISZ C2 

0416 

2041 


ISZ C2 

0417 

1131 


TAD COMMA 

0420 

4777 


JMS TYPE 

0421 

1116 


TAD FLD 

0422 

4777 


JMS TYPE 

0423 

1441 


TAD 1 C2 

0424 

4263 


JMS OUTT 


/COUNT CHARS. IN A LINE 


/TYPE FILE CLASSIFICATION 


/TYPE FILE NAME 


/TYPE S.A. 
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/O/P A 4 DIGIT NO. 


$425 

5600 

/ 

JMP 1 DATA 

,0426 

0000 

OUT, 

$ 

$427 

7200 


CLA 

0430 

1044 


TAD ABUFF 

0431 

3045 


DCA BUFF 

0432 

1123 


TAD LNCT 

0433 

1126 


TAD Ml$$ 

0434 

7700 


SMA CLA 

0435 

4324 


JMS NUNE 

0436 

1445 


TAD 1 BUFF 

0437 

7510 


SPA 

0440 

5337 


JMP BLKS 

,0441 

3127 


DCA FIRST 

$442 

1127 


TAD FIRST 

$443 

4263 


JMS OUTT 

$444 

2045 

NEXT, 

ISZ BUFF 

$445 

1445 


TAD 1 BUFF 

$446 

7041 


CIA 

$447 

2127 


ISZ FIRST 

$45$ 

1127 


TAD FIRST 

$451 

765$ 


SNA CLA 

$452 

5244 


JMP NEXT 

$453 

113$ 


TAD DASH 

$454 

4777 


JMS TYPE 

$455 

7040 


CMA 

$456 

1127 


TAD FIRST 

$457 

4263 


JMS OUTT 

$46$ 

1131 


TAD COMMA 

$461 

4777 


JMS TYPE 

$462 

5232 

/ 

JMP OUT+4 

$463 

$$$$ 

OUTT, 

$ 

$464 

3132 


DCA PTEM 

$465 

7040 


CMA 

$466 

3133 


DCA ZZ 

$467 

1035 


TAD M4 • 

$47$ 

3134 


DCA DC NT 

$471 

1132 


TAD PTEM 

$472 

71$4 


RAL CLL 

$473 

7004 

PNU2, 

RAL 

$474 

7006 


RTL 

$475 

3132 


DCA PTEM 

$476 

1132 


TAD PTEM 

$477 

0135 


AND C7 

0500 

7440 


SZA 

0501 

5314 


JMP NZ 

0502 

1133 


TAD ZZ 


/LINE FILLED ? 

/YES CR LF & TAB 
/NO 

/ALL DONE - O/P NO. OF BLOCKS 


/GET NEXT BLOCK NO. 


/= PRESENT BLK. NO. ? 

/YES 

/NO - END OF A RUN OF BLKS. 


/LOOK FOR MORE BLKS. 


/INIT. DIGIT COUNTER 


/DIGIT NOT =$ 
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0503 

7650 

0504 

5314 

0505 

1134 

0506 

7001 

0507 

7650 

0510 

1136 

0511 

1060 

0512 

4777 

0513 

5317 

0514 

1137 

0515 

4777 

0516 

3133 

0517 

1132 

0520 

2134 

0521 

5273 

0522 

7200 

0523 

5663 

0524 

0000 

0525 

4774 

0526 

1115 

0527 

1033 

0530 

3141 

0531 

3123 

0532 

1060 

0533 

4777 

0534 

2141 

0535 

5332 

0536 

5724 

0537 

7200 

0540 

1060 

0541 

4777 

0542 

1044 

0543 

7041 

0544 

1045 

0545 

4263 

0546 

5626 

0574 

0351 

0575 

1101 

0576 

1676 

0577 

0342 

0600 

7201 

0601 

3066 

0602 

1043 

0603 

1022 

0604 

3040 

0605 

1034 


SNA CLA 
JMP NZ 
TAD DC NT 
IAC 

SNA CLA 
TAD P20 
TAD SP 
JMS TYPE 
JMP NZ+3 
TAD C260 
JMS TYPE 
DCA ZZ 
TAD PTEM 
ISZ DC NT 
JMP PNU2 
CLA 

JMP I OUTT 

0 

JMS CRLF 
TAD SSS 
TAD M30 
DCA LCT 
DCA LNCT 
TAD SP 
JMS TYPE 
ISZ LCT 
JMP .-3 
JMP I NLINE 

CLA 
TAD SP 
JMS TYPE 
TAD ABUFF 
CIA 

TAD BUFF 
JMS OUTT 
JMP I OUT 


CLA IAC 
DCA FNO 
TAD ADNBF 
TAD P7 
DCA Cl 
TAD M31 


NZ, 


/ 

NLINE, 


/ 

BLKS, 


/ 


PAGE 

/ 

LIST, 


/LEADING 0 ? 
/NO 


/TYPE LAST 0 IF NO. = 0 
/ELSE TYPE SPACE 


/SET TABULATION 
/ 27 FOR LIST OPTION 

/ 22 FOR SEARCH OPTION 

/DO TAB. 


/CALCULATE NO. OF BLKS. 


/INIT. FILE NO. TO 1 


/SET TO FIRST EXTENSION 
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0606 

3065 


DCA FNOK 

0607 

4777 

NEXTT, 

JMS CRLF 

06]0 

6031 


KSF 

,0611 

7410 


SKP 

0612 

5776 


JMP OPTN-4 

0613 

1066 


TAD FNO 

0614 

4775 


JMS OUTT 

0615 

1440 


TAD 1 Cl 

0616 

0025 


AND P77 

0617 

7650 


SNA CLA 

0620 

5256 


JMP MORE 

0621 

1040 


TAD Cl 

0622 

1035 


TAD M4 

0623 

3041 


DCA C2 

0624 

1075 


TAD COL 

0625 

4774 


JMS TYPE 

0626 

1440 


TAD 1 Cl 

0627 

4773 


JMS ABFSU 

0630 

1441 


TAD 1 C2 

0631 

4772 


JMS PR NT 

0632 

2041 


ISZ C2 

0633 

1441 


TAD 1 C2 

0634 

4772 


JMS PR NT 

0635 

1131 


TAD COMMA 

0636 

4774 


JMS TYPE 

0637 

1116 


TAD FLD 

0640 

4774 


JMS TYPE 

0641 

2041 


ISZ C2 

0642 

1441 


TAD 1 C2 

0643 

4775 


JMS OUTT 

0644 

1131 


TAD COMMA 

0645 

4774 


JMS TYPE 

0646 

1116 


TAD FLD 

0647 

4774 


JMS TYPE 

0650 

2041 


ISZ C2 

0651 

1441 


TAD 1 C2 

0652 

4775 


JMS OUTT 

0653 

1076 


TAD SCOL 

0654 

4774 


JMS TYPE 

0655 

4275 


JMS SRCH 

0656 

2066 

MORE, 

ISZ FNO 

0657 

2065 


ISZ FNOK 

0660 

5264 


JMP THISDN 

0661 

1034 


TAD M31 

0662 

3065 


DCA FNOK 

0663 

1020 


TAD P3 

0664 

1040 

THISDN, 

TAD Cl 

0665 

1027 


TAD P5 


/SET NO. OF FILES/DN 
/CR LF 

/RETURN TO OPTION ? 


/TYPE PRESENT FILE NO. 
/GET DN EXTENSION WORD 
/MASK FILE NO. 

/IS THIS FILE ACTIVE ? 

/NO 


/TYPE FILE CLASSIFICATION 
/TYPE FIRST 2 CHARS. OF FILE NAME 


/TYPE SECOND 2 CHARS. 


/TYPE START ADDR. 


/TYPE S.A. (ENTRY PT.) 
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0666 

3040 


DCA Cl 


0667 

1066 


TAD FNO 


0670 

7041 


CIA 


0671 

1025 


TAD P77 


0672 

7700 


SMA CLA 


0673 

5207 


JMP NEXTT 


0674 

5771 

/ 

SRCH, 

JMPCOUNT 

/ALL FILES LISTED 

0675 

0000 

0 


0676 

1066 


TAD FNO 


0677 

7041 


CIA 


0700 

3067 


DCA MFNO 

/-(FILE NO.) 

0701 

1044 


TAD ABUFF 

/ADDR. OF BLOCK BUFFER 

0702 

3045 


DCA BUFF 


0703 

7040 


CMA 


0704 

3445 


DCA 1 BUFF 

/INIT. START OF BLOCK BUFFER 

0705 

3041 


DCA C2 


0706 

1105 


TAD NSAM 

/SET -(NO. OF SAM BLKS.) 

0707 

7041 


CIA 


0710 

3106 


DCA MS AM 


0711 

1046 


TAD ASAMBF 


0712 

3357 


DCA PASSK 

/BLOCK POINTER 

0713 

1067 

PASS1, 

TAD MFNO 


0714 

3070 


DCA TSTW 

/SET -(FILE NO.) IN TEST WORD 

0715 

1036 


TAD M2 


0716 

3071 


DCA PASSC 

/INIT. PASS COUNTER 

0717 

1025 


TAD P77 

/MASK FOR BLOKS. 0-177 

0720 

3103 

PASS2, 

DCA MASK 


0721 

1037 


TAD M200 


0722 

3072 


DCA KTR 

/COUNTER SET AT -200 

0723 

1357 


TAD PASSK 


0724 

3073 


DCA TEMP 


0725 

1473 

LOOP, 

TAD 1 TEMP 

/FETCH AND MASK 

0726 

0103 


AND MASK 

/ SAM NO. 

0727 

1070 


TAD TSTW 

/COMPARE WITH TEST WORD 

0730 

7650 


SNA CLA 


0731 

4360 


JMS SAMFND 

/FOUND MATCH - STORE 

0732 

2073 


ISZ TEMP 


0733 

2041 


ISZ C2 


0734 

2072 


ISZ KTR 

/END OF PASS 1 ? 

0735 

5325 


JMP LOOP 

/NO REPEAT 

0736 

1070 


TAD TSTW 

/SET 

0737 

7006 


RTL 

/ TEST 

0740 

7006 


RTL 

/ WORD 

0741 

7006 


RTL 

/ FOR 

0742 

0026 


AND P7700 

/ BLOCKS 

0743 

3070 


DCA TSTW 

/ 200-377 

0744 

1026 


TAD P7700 

/CHANGE MASK FOR PASS 2 

0745 

2071 


ISZ PASSC 

/SKIP IF END PASS 2 

0746 

5320 


JMP PASS2 


0747 

7200 


CLA 
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0750 
0751 
0752 
0753 
0754 
0755 
0756 
0757 

0760 
0761 
0762 
0763 
0764 
0765 
0766 

0770 
0771 
0772 
0773 
0774 
0775 
0776 
0777 


]000 

] 00 ] 

1002 

1003 

1004 

1005 

1006 
1007 
1010 
10/1 
1012 

101 3 

1014 

1015 

1016 
1017 
1020 
1021 
1022 

1023 

1024 

1025 


1357 

1024 

3357 

2106 

5313 

4770 

5675 

0000 

0000 

1041 

3445 

7040 

2045 

3445 

5760 

0426 

1000 

1101 

1676 

0342 

0463 

0244 

0351 


4777 

3066 

1020 

1043 

3040 
1025 
7041 

3041 
1034 

3042 
1440 
7650 
2066 
1027 
1040 
3040 
2042 
5226 
1040 
1020 
3040 
5210 


TAD PASSK 
TAD P200 
DCA PASSK 

ISZ MSAM /HAVE ALL SAM BLKS. BEEN SEARCHED ? 
JMP PASS1 /SEARCH NEXT SAM BLK. 

JMS OUT 
JMP I SRCH 
PASSK, 0 
/ 

SAMFND, 0 

TAD C2 
DCA I BUFF 
CMA 
ISZ BUFF 
DCA I BUFF 
JMP I SAMFND 

/ 


PAGE 

/ 

COUNT, JMS CRLF 
DCA FNO 
TAD P3 
TAD ADNBF 
DCA Cl 
TAD P77 
CIA 

DCA C2 
TAD M31 
DCA C3 

NXT, TAD I Cl 
SNA CLA 
ISZ FNO 
TAD P5 
TAD Cl 
DCA Cl 
ISZ C3 
JMP .+5 
TAD Cl 
TAD P3 
DCA Cl 
JMP NXT-2 


/INIT. DN POINTER TO DNBF+3 
/INIT. FILE NO. COUNT 


/LOOK AT FIRST 2 CHARS. 
/ OF FILE NAME 
/NO NAME 
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1026 

2041 


ISZ C2 


1027 

5212 


JMP NXT 


1030 

1066 


TAD FNO 


1031 

4776 


JMS OUTT 

/TYPE NO. OF FREE FILES 

1032 

1060 


TAD SP 


1033 

4775 


JMS TYPE 


1034 

1774 


TAD F 


1035 

4775 


JMS TYPE 


1036 

1060 


TAD SP 


1037 

4775 


JMS TYPE 


1040 

1075 


TAD COL 


1041 

4775 


JMS TYPE 


1042 

1046 


TAD ASAMBF 

/I N IT - SAM POINTER 

1043 

3040 


DCA Cl 


1044 

1105 


TAD NSAM 

/INIT. SAM BUFF. COUNT 

1045 

7112 


CLL RTR 


1046 

7012 


RTR 


1047 

7012 


RTR 


1050 

7041 


CIA 


1051 

3041 


DCA C2 


1052 

3066 


DCA FNO 


1053 

1440 

NXT2, 

TAD 1 Cl 

/GET A SAM WORD 

1054 

3073 


DCA TEMP 

/ & STORE IT 

1055 

1073 


TAD TEMP 


1056 

0025 


AND P77 

/LOOK FOR XX00 

1057 

7650 


SNA CLA 


1060 

2066 


ISZ FNO 

/FOUND ONE 

1061 

1073 


TAD TEMP 


1062 

0026 


AND P7700 

/LOOK FOR 00XX 

1063 

7650 


SNA CLA 


1064 

2066 


ISZ FNO 

/ FOUND ONE 

1065 

2040 


ISZ Cl 


1066 

2041 


ISZ C2 

/END OF SAMS ? 

1067 

5253 


JMP NXT2 

/NO 

1070 

1066 


TAD FNO 


1071 

4776 


JMS OUTT 

/TYPE NO. OF FREE BLOCKS 

1072 

1060 


TAD SP 


1073 

4775 


JMS TYPE 


1074 

1773 


TAD B 


1075 

4775 


JMS TYPE 


1076 

4777 


JMS CRLF 


1077 

3047 


DCA OPT 

/CLEAR OPTION 

1100 

5772 

/ 

PR NT, 

JMP OPTN 

/RETURN TO OPTION SELECT 

1101 

0000 

0 


1102 

3142 


DCA CHARS 


1103 

1142 


TAD CHARS 


1104 

0026 


AND P7700 


1105 

7112 


RTR CLL 
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1106 

7012 


RTR 


11,07 

7012 


RTR 


m0 

1024 


TAD P200 


nn 

1023 


TAD P40 


1112 

4775 


JMS TYPE 


1113 

1142 


TAD CHARS 


1114 

0025 


AND P77 


1115 

1024 


TAD P200 


1116 

1023 


TAD P40 


1117 

4775 


JMS TYPE 


11# 

5701 

/ 

JMP 1 PR NT 


1121 

0000 

DNDATA, 

■ 0 


1122 

1066 


TAD FNO 


1123 

4776 


JMS OUTT 

/TYPE FILE NO. 

1124 

1075 


TAD COL 


1125 

4775 


JMS TYPE 


1126 

1040 


TAD Cl 


1127 

1020 


TAD P3 


1130 

3042 


DCA C3 


1131 

1442 


TAD 1 C3 


1132 

4771 


JMS ABFSU 

/TYPE FILE CLASSIFICATION 

1133 

1116 


TAD FLD 


1134 

4775 


JMS TYPE 

/TYPE FIELD 

1135 

1040 


TAD Cl 


1136 

7001 


IAC 


1137 

3042 


DCA C3 


1140 

1442 


TAD 1 C3 


1141 

4776 


JMS OUTT 

/START ADDR. 

1142 

1131 


TAD COMMA 


1143 

4775 


JMS TYPE 


1144 

1116 


TAD FLD 


1145 

4775 


JMS TYPE 


1146 

2042 


ISZ C3 


1147 

1442 


TAD 1 C3 


1150 

4776 


JMS OUTT 

/S. A. (ENTRY PT.) 

1151 

1076 


TAD SCOL 


1152 

4775 


JMS TYPE 


1153 

5721 


JMP 1 DNDATA 



/ 



1171 

1676 




1172 

0250 




1173 

1736 




1174 

1737 




1175 

0342 




1176 

0463 




1177 

0351 

PAGE 





/ 



1200 

4777 

SEARCH, 

JMS CRLF 


1201 

3101 


DCA WORD1 


1202 

3102 


DCA WORD2 
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1203 

4342 


JMS GET 


1204 

5^01 


JMP SEARCH+1 

1205 

5244 


JMP SERCH 

/BLANK FILE REQUESTED 

1206 

7106 


RTL CLL 


1207 

7006 


RTL 


1210 

7006 


RTL 


1211 

3101 


DCA WORD1 

/SAVE FIRST LEFT HALF 

1212 

4342 


JMS GET 


1213 

5236 


JMP WHICH 


1214 

5244 


JMP SERCH 

/ONE CHAR. FILE NAME 

1215 

1101 


TAD WORD1 

/ONE CHAR. FILE NAME 

1216 

3101 


DCA WORD1 

/SAVE FIRST PACKED WORD 

1217 

4342 


JMS GET 


1220 

5236 


JMP WHICH 


1221 

5244 


JMP SERCH 

/TWO CHAR. FILE NAME 

1222 

7106 


RTL CLL 


1223 

7106 


RTL CLL 


1224 

7006 


RTL 


1225 

3102 


DCA WORD2 

/SAVE SECOND LEFT HALF 

1226 

4342 


JMS GET 


1227 

5236 


JMP WHICH 


1230 

5244 


JMP SERCH 

/THREE CHAR. FILE NAME 

1231 

1102 


TAD WORD2 


1232 

3102 


DCA WORD2 

/SAVE SECOND PACKED WORD 

1233 

4342 


JMS GET 

/LOOKING FOR CR 

1234 

5236 


JMP WHICH 

/ IF NOT TYPED PREVIOUSLY 

1235 

5244 


JMP SERCH 

/FOUND CR 

1236 

7200 

WHICH, 

CLA 

/RO. OR EXTRA CHAR. 

1237 

1060 


TAD SP 


1240 

4776 


JMS TYPE 


1241 

1077 


TAD QMARK 


1242 

4776 


JMS TYPE 


1243 

5200 


JMP SEARCH 


1244 

1020 

/ 

SERCH, 

TAD P3 


1245 

1043 


TAD ADNBF 


1246 

3040 


DCA Cl 

/BUFFER POINTR 

1247 

1125 


TAD LF 


1250 

4776 


JMS TYPE 


1251 

3066 


DCA FNO 

/INIT. FILE NO. 

1252 

1025 


TAD P77 


1253 

7041 


CIA 


1254 

3041 


DCA C2 

/FILE COUNT 

1255 

1034 


TAD M31 


1256 

3065 


DCA FNOK 


1257 

1101 


TAD WORD1 

/COMPARE WITH PREVIOUS FILE 

1260 

1110 


TAD LWORD1 


1261 

7440 


SZA 


1262 

5265 


JMP LST 


1263 

1102 


TAD WORD2 


1264 

mi 


TAD LWORD2 
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1265 

3112 

LST, 

DCA LAST 

/=/; IF WORD = LWORD 

1266 

144/ 

TEST, 

TAD 1 Cl 

/GET A FILE NAME 

1267 

204/ 


ISZ Cl 

/ & COMPARE 

127/ 

2/66 


ISZ FNO 

/WITH WORD1,2 

1271 

7/41 


CIA 


1272 

11/1 


TAD WORD1 


1273 

764/ 


SZA CLA 


1274 

53/2 


JMP NOTYET 

/NOT EQUAL TO WORD1 

1275 

144/ 


TAD 1 Cl 


1276 

7/41 


CIA 


1277 

11/2 


TAD WORD2 


13// 

765/ 


SNA CLA 


13/1 

5315 


JMP CHK 

/MATCH FOUND 

13/2 

2065 

NOT YET, 

ISZ FNOK 


13/3 

53/7 


JMP THSDN 


13/4 

1/34 


TAD M31 


13/5 

3/65 


DCA FNOK 


13/6 

1/20 


TAD P3 


13/7 

1/3/ 

THSDN, 

TAD P4 


131/ 

1/4/ 


TAD Cl 


1311 

3/4/ 


DCA Cl 


1312 

2041 


ISZ C2 


1313 

5266 


JMP TEST 


1314 

5236 


JMP WHICH 


1315 

1112 

CHK, 

TAD LAST 


1316 

764/ 


SZA CLA 

/A REPEAT FILE NAME ? 

1317 

5324 


JMP SETLF 

/NO 

13$ 

1113 


TAD LFNO 

/YES 

1321 

1/66 


TAD FNO 

/IS THIS THE FILE NO. SEARCHED 

1322 

775/ 


SNA SPA CLA /FOR LAST TIME ? 

1323 

53/2 


JMP NOTYET /SAME FILE NO. FOUND 

1324 

1/66 

SETLF, 

TAD FNO 

/SAVE 

1325 

7/41 


CIA 


1326 

3113 


DCA LFNO 

/-(FILE NO.) 

1327 

11/1 


TAD WORD1 


133/ 

7/41 


CIA 


1331 

311/ 


DCA LWORD1 / -(WORD1) 

1332 

11/2 


TAD WORD2 


1333 

7/41 


CIA 


1334 

3111 


DCA LWORD2 / -(WORD2) 

1335 

1/27 


TAD P5 


1336 

3115 


DCA SSS 


1337 

4775 


JMS DNDATA 

134/ 

4774 


JMS SRCH 

/GET & TYPE FILE STATISTICS 

1341 

520/ 


JMP SEARCH 



/ 

/FETCH A CHAR. FROM I^B 
/IF f L RETURN TO OPTION 

/if ro. pc=pc+i CAcq =/ 

/IF CR PC=PC+2 CAQ =0 
/IF t C RETURN TO MONITOR 
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1342 

1343 

1344 

1345 

1346 

1347 

1350 

1351 

1352 

1353 

1354 

1355 

1356 

1357 

1360 

1361 

1362 

1363 

1364 

1365 

1366 

1367 

1370 

1373 

1374 

1375 

1376 

1377 


1400 

1401 
1402 

1403 

1404 

1405 

1406 

1407 

1410 

1411 
1312 

1413 

1414 

1415 

1416 

1417 
14?0 
1421 


$000 

6031 

5343 

6036 

6046 

3100 

1100 

4773 

1062 

7450 

5367 

1063 
7450 
5742 
2342 

1064 
7650 
5514 
1100 
1023 
0025 
2342 
5742 

0334 

0675 

1121 

0342 

0351 


4777 

5776 

5775 
1117 
3107 
1107 
7550 

5776 
7041 
1105 
7710 
5776 
1107 
7112 
7012 
7012 
1037 
1046 


/ELSE PC=PC+3 fAC h =STRIPPED ASCII+40 

/ 

GET, 0 

KSF 

JMP .-1 

KRB 

TLS 

DCA CHAR 
TAD CHAR 

JMS CTRL /f L ? 

TAD MCR 

SNA / CR? 

JMP GOTCR 
TAD MRO 

SNA /RUBOUT ? 

JMP I GET 
ISZ GET 
TAD MCTRLC 
SNA CLA /fC? 

JMP I MONRET 
TAD CHAR 
TAD P40 
AND P77 
GOTCR, ISZ GET 
JMP I GET 

/ 


PAGE 

/ 

DUMP, 


JMS GET 
JMP WHAT 
JMP OPTN-2 
TAD M20 
DCA SAMN 
TAD SAMN 
SNA SPA 
JMP WHAT 
CIA 

TAD NSAM 
SPA CLA 
JMP WHAT 
TAD SAMN 
CLL RTR 
RTR 
RTR 

TAD M?00 
TAD ASAMBF 


/R. O. 


/ILLEGAL I/P (ASCIK261) 

/TOO LARGE SAM NO. ASKED FOR 
/GET START OF SAM BLK. IN CORE 
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/RETURN TO OPTION ? 


1422 

3040 


DCA Cl 

1423 

1037 


TAD M200 

1424 

3041 


DCA C2 

1425 

4774 


JMS CRLF 

1426 

4774 


JMS CRLF 

1427 

1031 

D1 / 

TAD M8 

1430 

3042 


DCA C3 

1431 

6031 


KSF 

1432 

7410 


SKP 

1433 

5773 


JMP OPTN-4 

1434 

1440 


TAD 1 Cl 

1435 

2040 


ISZ Cl 

1436 

4772 


JMS OUTT 

1437 

1060 


TAD SP 

1440 

4771 


JMS TYPE 

1441 

1060 


TAD SP 

1442 

4771 


JMS TYPE 

1443 

2041 


ISZ C2 

1444 

7410 


SKP 

1445 

5252 


JMP D2 

1446 

2042 


ISZ C3 

1447 

5231 


JMP Dl+2 

145j0 

4774 


JMS CRLF 

1451 

5227 


JMP D1 

1452 

4774 

D2, 

JMS CRLF 

1453 

4774 


JMS CRLF 

1454 

3047 


DCA OPT 

1455 

5770 

/ 

JMP OPTN 

1456 

4774 

HALT, 

JMS CRLF 

1457 

4777 


JMS GET 

1460 

5776 


JMP WHAT 

1461 

5776 


JMP WHAT 

1462 

1117 


TAD M20 

1463 

7106 


CLL RTL 

1464 

7004 


RAL 

1465 

3066 


DCA FNO 

1466 

4777 


JMS GET 

1467 

5776 


JMP WHAT 

1470 

5776 


JMP WHAT 

1471 

1117 


TAD M20 

1472 

1066 


TAD FNO 

1473 

3066 


DCA FNO 

1474 

1066 


TAD FNO 

1475 

7041 


CIA 

1476 

3067 


DCA MFNO 

1477 

3040 


DCA Cl 

1500 

1066 


TAD FNO 

1501 

1034 


TAD M31 

1502 

7510 


SPA 

1503 

5310 


JMP WSET 


/YES 

/GET A SAM WORD 


/ALL DONE ? 
/YES 

/END OF LINE ? 
/NO 


/FIRST DIGIT 


/SECOND DIGIT 


/STORE FILE NO. 
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1504 

1034 


TAD M31 


1505 

7500 


SMA 


1506 

2040 


ISZ Cl 


1507 

2040 

/ 

ISZ Cl 

/=(DN NO.-l) 

1510 

7200 

WSET, 

CLA 


1511 

1040 


TAD Cl 

/SET CORE ADDR. 

1512 

7112 


CLL RTR 


1513 

7012 


RTR 


1514 

7012 


RTR 


1515 

1043 


TAD ADNBF 


1516 

3767 


DCA WCORE 


1517 

1040 


TAD Cl 


1520 

7440 


SZA 


1521 

5327 


JMP WSET2 


1522 

1145 


TAD P201 

/ C=0 ; DN 1 

1523 

3766 


DCA WUNK 


1524 

1021 


TAD PI 77 


1525 

3765 


DCA WBLOK 


1526 

5764 


JMP FINDIT 


1527 

1036 

WSET2, 

TAD M2 


1530 

7440 


SZA 


1531 

5342 


JMP WSET1 


1532 

3766 


DCA WUNK 

/C=2 ; DN 3 

1533 

1105 


TAD NSAM 


1534 

1035 


TAD M4 


1535 

7740 


SMA SZA CLA/DISC OR DECTAPE ? 

1536 

1027 


TAD P5 

/DECTAPE 

1537 

1146 


TAD P202 

/DISC 

1540 

3765 


DCA WBLOK 


1541 

5764 


JMP FINDIT 


1542 

7001 

WSET1, 

IAC 


1543 

7640 


SZA CLA 


1544 

5776 


JMP WHAT 

/SOFTWARE ERROR 

1545 

1145 


TAD P201 


1546 

3765 


DCA WBLOK 


1547 

1105 


TAD NSAM 


1550 

1035 


TAD M4 


1551 

7740 


SMA SZA CLA/DISC OR DECTAPE ? 

1552 

1027 


TAD P5 

/DECTAPE 

1553 

1146 


TAD P202 

/DISC 

1554 

3766 


DCA WLINK 


1555 

5764 


JMP FINDIT 


1564 

1600 




1565 

1745 




1566 

1747 




1567 

1746 




1570 

0250 




1571 

0342 




1572 

0463 




1573 

0244 
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1574 #351 

1575 0246 

1576 0273 

1577 1342 


PAGE 

/ 

1600 1022 FIND IT, 

1601 1346 

1602 3041 

1603 1034 

1604 3042 

1605 1441 FIND, 

1606 0025 

1607 1067 

1610 7650 

1611 5220 

1612 1041 

1613 1027 

1614 3041 

1615 2042 


TAD P7 
TAD WCORE 
DCA C2 
TAD M31 
DCA C3 
TAD I C2 
AND P77 
TAD MFNO 
SNA CLA 
JMP GOT IT 
TAD C2 
TAD P5 
DCA C2 
ISZ C3 


1616 

5205 


JMP FIND 

1617 

5777 

/ 

JMP WHAT 



/ 


16?0 

4776 

GOT IT, 

JMS DATA 

1621 

1076 


TAD SCOL 

1622 

4775 


JMS TYPE 

1623 

1144 


TAD SAVEF 

1624 

7640 


SZA CLA 

1625 

5777 


JMP WHAT 

1626 

4774 


JMS GET 

1627 

5777 


JMP WHAT 

1630 

5777 


JMP WHAT 

1631 

1122 


TAD M27 

1632 

7640 


SZA CLA 

1633 

5777 


JMP WHAT 

1634 

4774 


JMS GET 

1635 

5777 


JMP WHAT 

1636 

5777 


JMP WHAT 

1637 

1121 


TAD M26 

1640 

7640 


SZA CLA 

1641 

5777 


JMP WHAT 

1642 

4774 


JMS GET 

1643 

5777 


JMP WHAT 

1644 

5777 


JMP WHAT 

1645 

1120 


TAD M23 

1646 

7640 


SZA CLA 

1647 

5777 


JMP WHAT 

1650 

4774 


JMS GET 

1651 

5777 


JMP WHAT 

1652 

5777 


JMP WHAT 


/LOOK FOR FILE NO. 


/ILLEGAL FILE NO. 


/NON-SAVE FILE ASKED FOR 
/LOOK FOR 7636 FROM I^B 


/7? 


/ 6 ? 


/3 ? 
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1653 

1121 

TAD M26 


1654 

7640 

SZA CLA 

/6 ? 

1655 

5777 

JMP WHAT 


1656 

1441 

TAD 1 C2 


1657 

3042 

DCA C3 

/STORE S. A. 

1660 

1143 

TAD P7636 


1661 

3441 

DCA 1 C2 


1662 

4773 

JMS CRLF 


1663 

2041 

ISZ C2 


1664 

4776 

JMS DATA 

/TYPE NEW FILE STATISTICS 

1665 

4774 

JMS GET 


1666 

5270 

JMP NOHALT /ABANDON MODIFICATION OF DN 1 

1667 

5273 

JMP MODDN 

1 / CR= PROCEED 

167,0 

1042 

NOHALT, TAD C3 

/ILLEGAL CHAR. OR SYSTEM ERROR 

1671 

3441 

DCA 1 C2 

/RESTORE S. A. 

1672 

5772 

JMP OPTN 


1673 

4342 

MODDN, JMS WBLK 

/ACTUALLY MODIFY DN BLK. 

1674 

5675 

JMP 1 MONHLT /GO TO MONITOR HALT 

1675 

7636 

MONHLT, 7636 


1676 

0000 

/ 

ABFSU, 0 

/DECODE 5TH WORD OF DN ENTRY 

1677 

3070 

DCA TSTW 


1700 

1070 

TAD TSTW 

/LOOK AT BITS 0,1 

1701 

7106 

CLL RTL 


1702 

7004 

RAL 


1703 

0020 

AND P3 


1704 

3073 

DCA TEMP 


1705 

1073 

TAD TEMP 


1706 

1032 

TAD M3 


1707 

3144 

DCA SAVEF 

/=0 FOR A SAVE FILE 

1710 

1070 

TAD TSTW 

/LOOK AT BIT 5 

1711 

7106 

CLL RTL 

/FORM FILE CLASSIFICATION 

1712 

7006 

RTL 

/0 = ASCII; 1 = BINARY; 2 = FTR BIN. 

1713 

7006 

RTL 

/3 = USER; 4 = SYSTEM 

1714 

0022 

AND P7 , 


1715 

3070 

DCA TSTW 

/= FIELD 

1716 

7204 

CLA RAL 


1717 

1073 

TAD TEMP 

/CLASSIFICATION 

1720 

1334 

TAD ACLASS 


1721 

3073 

DCA TEMP 


1722 

1070 

TAD TSTW 


1723 

7450 

SNA 


1724 

1117 

TAD M20 


1725 

1137 

TAD C260 


1726 

3116 

DCA FLD 

/FIELD * +260 (F*0 = 240) 

1727 

1473 

TAD 1 TEMP 


1730 

4775 

JMS TYPE 


1731 

1131 

TAD COMMA 



37 








t 


1732 

4775 

JMS TYPE 

1733 

5676 

JMP 1 ABFSU 

1734 

1735 

ACLASS, CLASS 

1735 

/3/1 

CLASS, 3/1 

1736 

/3/2 

B, 3/2 

1737 

/3/6 

F, 3/6 

174/ 

/325 

325 

1741 

/323 

323 

WBLK, / 

1742 

//// 

1743 

4474 

JMS 1 SYSIO 

1744 

///5 

5 

1745 

//// 

WBLOK, / 

1746 

//// 

WCORE, / 

1747 

//// 

WLINK, / 

175/ 

527/ 

JMP NOHALT 

1751 

5742 

JMP 1 WBLK 

/ 

1772 

/25/ 


1773 

/351 


1774 

1342 


1775 

/342 


1776 

0400 


1777 

0273 

PAGE 

/ 

DNBF=. 

/ 


/A 

/B 

/F 

/U 

/S 


/WRITE 
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